Public Class Field
	Inherits TcKs.MSOffice.Common.ChildObjectWrapperBase
	
	Friend Sub New ( ByVal nativeObject As Global.System.Object,  ByVal rootObject As Global.TcKs.MSOffice.Common.RootObjectWrapperBase )
		MyBase.New ( nativeObject, rootObject )
	End Sub 
	
	Public Sub [Select](  )
		MyBase.WrappedObject.[Select](  )
	End Sub 
	
	Public Function Update(  ) As Global.System.Boolean
		Dim result As Global.System.Object = MyBase.WrappedObject.Update(  )
		Return result
	End Function 
	
	Public Sub Unlink(  )
		MyBase.WrappedObject.Unlink(  )
	End Sub 
	
	Public Sub UpdateSource(  )
		MyBase.WrappedObject.UpdateSource(  )
	End Sub 
	
	Public Sub DoClick(  )
		MyBase.WrappedObject.DoClick(  )
	End Sub 
	
	Public Sub Copy(  )
		MyBase.WrappedObject.Copy(  )
	End Sub 
	
	Public Sub Cut(  )
		MyBase.WrappedObject.Cut(  )
	End Sub 
	
	Public Sub Delete(  )
		MyBase.WrappedObject.Delete(  )
	End Sub 
	
	Public ReadOnly Property Application As Global.TcKs.MSOffice.Word.Application
		Get 
			Dim ret As Global.TcKs.MSOffice.Word.Application =  Me.FindTopRootObject()
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Creator As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Creator
		End Get 
	End Property 
	
	Public ReadOnly Property Parent As Global.System.Object
		Get 
			Return MyBase.WrappedObject.Parent
		End Get 
	End Property 
	
	Public Property Code As Global.TcKs.MSOffice.Word.Range
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Code
			Dim ret As New Global.TcKs.MSOffice.Word.Range( nativeObject, Me.RootObject )
			Return ret
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.Range )
			Dim nativeObject As Global.System.Object = Nothing 
			If Value IsNot Nothing Then nativeObject = Value .GetWrappedObject()
			MyBase.WrappedObject.Code = nativeObject
		End Set 
	End Property 
	
	Public ReadOnly Property Type As Global.TcKs.MSOffice.Word.WdFieldType
		Get 
			Return MyBase.WrappedObject.Type
		End Get 
	End Property 
	
	Public Property Locked As Global.System.Boolean
		Get 
			Return MyBase.WrappedObject.Locked
		End Get 
		Set ( ByVal Value As Global.System.Boolean )
			MyBase.WrappedObject.Locked = Value 
		End Set 
	End Property 
	
	Public ReadOnly Property Kind As Global.TcKs.MSOffice.Word.WdFieldKind
		Get 
			Return MyBase.WrappedObject.Kind
		End Get 
	End Property 
	
	Public Property Result As Global.TcKs.MSOffice.Word.Range
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Result
			Dim ret As New Global.TcKs.MSOffice.Word.Range( nativeObject, Me.RootObject )
			Return ret
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.Range )
			Dim nativeObject As Global.System.Object = Nothing 
			If Value IsNot Nothing Then nativeObject = Value .GetWrappedObject()
			MyBase.WrappedObject.Result = nativeObject
		End Set 
	End Property 
	
	Public Property Data As Global.System.String
		Get 
			Return MyBase.WrappedObject.Data
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.Data = Value 
		End Set 
	End Property 
	
	Public ReadOnly Property [Next] As Global.TcKs.MSOffice.Word.Field
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.[Next]
			Dim ret As New Global.TcKs.MSOffice.Word.Field( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Previous As Global.TcKs.MSOffice.Word.Field
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Previous
			Dim ret As New Global.TcKs.MSOffice.Word.Field( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Index As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Index
		End Get 
	End Property 
	
	Public Property ShowCodes As Global.System.Boolean
		Get 
			Return MyBase.WrappedObject.ShowCodes
		End Get 
		Set ( ByVal Value As Global.System.Boolean )
			MyBase.WrappedObject.ShowCodes = Value 
		End Set 
	End Property 
	
	Public ReadOnly Property LinkFormat As Global.TcKs.MSOffice.Word.LinkFormat
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.LinkFormat
			Dim ret As New Global.TcKs.MSOffice.Word.LinkFormat( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property OLEFormat As Global.TcKs.MSOffice.Word.OLEFormat
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.OLEFormat
			Dim ret As New Global.TcKs.MSOffice.Word.OLEFormat( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property InlineShape As Global.TcKs.MSOffice.Word.InlineShape
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.InlineShape
			Dim ret As New Global.TcKs.MSOffice.Word.InlineShape( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
End Class 
